home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
qbbs
/
cntra100.zip
/
REMOTE.RS
< prev
next >
Wrap
Text File
|
1992-09-02
|
3KB
|
62 lines
TITLE "QWK Scan in MKQ Mail Door for the LSO Remote Access BBS"
; -----------------------------------------------------------------------
; RACCESS.RS - Robocomm 4.2 script file
; .......................................................................
; Authors: Bill Castle & Mark Henderson.
; Version: 1.0beta
; Revised: 08/21/92
;
; Notes: You MUST have the renumbering style on Robocomm's
; "Data and Logs" configuration screen set to "#???????.???"
; in order to use this script! Also, for whatever reason I
; found robos ansi filter to be hosed when talking to RA.
; Maybe it's DV/X or my burned up 16550, whatever the case
; if this script fails, turn graphics off.
;
; Make sure you have configured LSO's logon options as follows.
;
; [-] Top Menu
;
; [1] MKnet QWK Mail Door ────────┐ <--- "only this one, eh?"
; [2] New Mail Checking ───┐ │
; │ X------- A Flags
; [3] New File Checking ─┐ └───────┘││
; └──────────┘│
; [4] Welcome Screen ────────────────┘
;
; The above is from the default login options of RA@LSO. Yours must match
; exactly or probable hard drive & motherboard meltdown is inevitable.
; Other RA systems may have things awry
; ----------------------------------------------------------------------
:MAIN
TIMEOUT 600
;Default to 10 minute scan for mail - edit as desired.
CAPTURE "%ID%LOG.%DOW%" OVERWRITE
IF EXIST "%QWKDIR%%ID%.QWK" RENUMBER "%QWKDIR%%ID%.QWK" 3
DELAY 1
WHEN "FrontDoor" SEND "|"
WHEN "Press Escape twice" SEND ""
WHEN "enter your full name:" SEND "%BBS13%|"
WHEN "Password:" SEND "%BBS7%|"
IF NOT EXIST "%REPDIR%%ID%.REP" GOTO MAILDWN
WHEN "Enter your choice now:" SEND "A"
WHEN "(Yes/No/Enter=Yes):" SEND "Y"
WAITFOR "B01000" FAILURE SEND "|"
UPLOAD "%REPDIR%%ID%.REP" USING "ROBOSZ"
RENUMBER "%REPDIR%%ID%.REP" 3
GOTO MAILRUN
:MAILDWN
WHEN "Enter your choice now:" SEND "A"
WHEN "(Yes/No/Enter=Yes):" SEND "N"
:MAILRUN
WHEN "(Yes/No/Enter=No):" SEND "Y"
WAITFOR "B008000" FAILURE SEND "|"
DOWNLOAD "%QWKDIR%%ID%.QWK" USING "ROBORZ"
DELAY 1
WHEN "GOODBYE" SEND "!"
WAITFOR "NO CARRIER" FAILURE SEND "G"
SEND "ATH|"
CLOSE
HANGUP
EXIT 0